Option Explicit
Implements IVehiculo
Implements ITransporte

Private medio As String
Private consumo As Double
Private Uc As Double

Private tipo As String
Private precio As Double
Const tipo_t As String = "Normal"

Private Sub class_initialize()
   IVehiculo_Uc = 5
   ITransporte_pTipo = tipo_t
End Sub

Private Sub IVehiculo_consumir(ByVal c As Double)
    IVehiculo_consumo = IVehiculo_consumo + c
    Debug.Print "  Coche consume " & c & " - Acum " & IVehiculo_consumo
End Sub

Private Property Let IVehiculo_consumo(ByVal c As Double)
    consumo = c
End Property

Private Property Get IVehiculo_consumo() As Double
    IVehiculo_consumo = consumo
End Property

Private Property Let IVehiculo_medio(ByVal m As String)
    medio = m
End Property

Private Property Get IVehiculo_medio() As String
    IVehiculo_medio = medio
End Property

Private Property Let IVehiculo_Uc(ByVal c As Double)
    Uc = c
End Property

Private Property Get IVehiculo_Uc() As Double
   IVehiculo_Uc = Uc
End Property

Private Sub IVehiculo_mover()
    Debug.Print "Coche se mueve"
    Call IVehiculo_consumir(Uc)
End Sub
